home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / VBTBOX.ZIP / TBOX.FRM < prev    next >
Text File  |  1993-09-10  |  4KB  |  134 lines
  1. VERSION 2.00
  2. Begin Form Tbox 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Toolbox"
  5.    ClientHeight    =   3585
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1545
  8.    ClientWidth     =   1185
  9.    ControlBox      =   0   'False
  10.    Height          =   3990
  11.    Left            =   1035
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3585
  16.    ScaleWidth      =   1185
  17.    Top             =   1200
  18.    Width           =   1305
  19.    Begin CommandButton Command1 
  20.       Caption         =   "12"
  21.       Height          =   615
  22.       Index           =   11
  23.       Left            =   600
  24.       TabIndex        =   11
  25.       Top             =   3000
  26.       Width           =   615
  27.    End
  28.    Begin CommandButton Command1 
  29.       Caption         =   "11"
  30.       Height          =   615
  31.       Index           =   10
  32.       Left            =   0
  33.       TabIndex        =   10
  34.       Top             =   3000
  35.       Width           =   615
  36.    End
  37.    Begin CommandButton Command1 
  38.       Caption         =   "10"
  39.       Height          =   615
  40.       Index           =   9
  41.       Left            =   600
  42.       TabIndex        =   9
  43.       Top             =   2400
  44.       Width           =   615
  45.    End
  46.    Begin CommandButton Command1 
  47.       Caption         =   "9"
  48.       Height          =   615
  49.       Index           =   8
  50.       Left            =   0
  51.       TabIndex        =   8
  52.       Top             =   2400
  53.       Width           =   615
  54.    End
  55.    Begin CommandButton Command1 
  56.       Caption         =   "8"
  57.       Height          =   615
  58.       Index           =   7
  59.       Left            =   600
  60.       TabIndex        =   7
  61.       Top             =   1800
  62.       Width           =   615
  63.    End
  64.    Begin CommandButton Command1 
  65.       Caption         =   "7"
  66.       Height          =   615
  67.       Index           =   6
  68.       Left            =   0
  69.       TabIndex        =   6
  70.       Top             =   1800
  71.       Width           =   615
  72.    End
  73.    Begin CommandButton Command1 
  74.       Caption         =   "6"
  75.       Height          =   615
  76.       Index           =   5
  77.       Left            =   600
  78.       TabIndex        =   5
  79.       Top             =   1200
  80.       Width           =   615
  81.    End
  82.    Begin CommandButton Command1 
  83.       Caption         =   "5"
  84.       Height          =   615
  85.       Index           =   4
  86.       Left            =   0
  87.       TabIndex        =   4
  88.       Top             =   1200
  89.       Width           =   615
  90.    End
  91.    Begin CommandButton Command1 
  92.       Caption         =   "4"
  93.       Height          =   615
  94.       Index           =   3
  95.       Left            =   600
  96.       TabIndex        =   3
  97.       Top             =   600
  98.       Width           =   615
  99.    End
  100.    Begin CommandButton Command1 
  101.       Caption         =   "3"
  102.       Height          =   615
  103.       Index           =   2
  104.       Left            =   0
  105.       TabIndex        =   2
  106.       Top             =   600
  107.       Width           =   615
  108.    End
  109.    Begin CommandButton Command1 
  110.       Caption         =   "2"
  111.       Height          =   615
  112.       Index           =   1
  113.       Left            =   600
  114.       TabIndex        =   1
  115.       Top             =   0
  116.       Width           =   615
  117.    End
  118.    Begin CommandButton Command1 
  119.       Caption         =   "1"
  120.       Height          =   615
  121.       Index           =   0
  122.       Left            =   0
  123.       TabIndex        =   0
  124.       Top             =   0
  125.       Width           =   615
  126.    End
  127. End
  128. Option Explicit
  129.  
  130. Sub Command1_Click (Index As Integer)
  131. MsgBox "This is just a normal form made into a floating toolbox by using SetParent API- see code for details."
  132. End Sub
  133.  
  134.